home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / HyperCard / HyperCard 1.2.2 International / HyperCard Austrailian (X-1.2.2) / Area Codes / background_2756.txt < prev    next >
Text File  |  1988-11-08  |  13KB  |  594 lines
  1. -- background: 2756 from stack: in
  2. -- bmap block id: 45748
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on EnterKey
  8.   if field finder is not empty then
  9.     push card
  10.     get field finder
  11.     put "" into field finder
  12.     Find chars it
  13.     if (number of this card < number of card "N Index") then
  14.       if the result is empty then play "Harpsichord" c5
  15.       put it into field finder
  16.     end if
  17.   end if
  18. end EnterKey
  19.  
  20.  
  21.  
  22. -- part 8 (button)
  23. -- low flags: 00
  24. -- high flags: 0000
  25. -- rect: left=476 top=274 right=300 bottom=505
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 1012 / 1012
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Return
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   visual effect scroll right
  37.   pop card
  38. end mouseUp
  39.  
  40.  
  41.  
  42. -- part 10 (button)
  43. -- low flags: 00
  44. -- high flags: 0000
  45. -- rect: left=479 top=308 right=334 bottom=506
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 1013 / 1013
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: Next
  54. ----- HyperTalk script -----
  55. on mouseUp
  56.   visual effect wipe left
  57.   go to next card
  58. end mouseUp
  59.  
  60.  
  61.  
  62. -- part 11 (button)
  63. -- low flags: 00
  64. -- high flags: 0000
  65. -- rect: left=450 top=308 right=334 bottom=477
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 1014 / 1014
  68. -- text alignment: 1
  69. -- font id: 0
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: Prev
  74. ----- HyperTalk script -----
  75. on mouseUp
  76.   visual effect wipe right
  77.   go to prev card
  78. end mouseUp
  79.  
  80.  
  81.  
  82. -- part 12 (button)
  83. -- low flags: 00
  84. -- high flags: 0004
  85. -- rect: left=477 top=17 right=42 bottom=508
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 21700 / 21700
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: Home
  94. ----- HyperTalk script -----
  95. on mouseUp
  96.   visual effect iris close
  97.   go home
  98. end mouseUp
  99.  
  100.  
  101.  
  102.  
  103. -- part 14 (field)
  104. -- low flags: 01
  105. -- high flags: 4002
  106. -- rect: left=2 top=60 right=265 bottom=166
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 0
  110. -- font id: 3
  111. -- text size: 9
  112. -- style flags: 0
  113. -- line height: 12
  114. -- part name: 
  115. ----- HyperTalk script -----
  116. on mouseDown
  117.   put the clickloc into y
  118.   put 1+(item 2 of y-item 2 of the rect of the target) div (the textheight of target) into z
  119.   put line z of field 1 into field "Display"
  120.   put "  " & line z of field 2 after field "Display"
  121.   put "  " & line z of field 3 after field "Display"
  122. end mouseDown
  123.  
  124.  
  125.  
  126. -- part 15 (field)
  127. -- low flags: 01
  128. -- high flags: 4002
  129. -- rect: left=100 top=60 right=265 bottom=169
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 0 / 0
  132. -- text alignment: 0
  133. -- font id: 3
  134. -- text size: 9
  135. -- style flags: 0
  136. -- line height: 12
  137. -- part name: 
  138. ----- HyperTalk script -----
  139. on mouseDown
  140.   put the clickloc into y
  141.   put 1+(item 2 of y-item 2 of the rect of the target) div (the textheight of target) into z
  142.   put line z of field 1 into field "Display"
  143.   put "  " & line z of field 2 after field "Display"
  144.   put "  " & line z of field 3 after field "Display"
  145. end mouseDown
  146.  
  147.  
  148.  
  149. -- part 16 (field)
  150. -- low flags: 01
  151. -- high flags: 4002
  152. -- rect: left=136 top=60 right=265 bottom=169
  153. -- title width / last selected line: 0
  154. -- icon id / first selected line: 0 / 0
  155. -- text alignment: 0
  156. -- font id: 3
  157. -- text size: 9
  158. -- style flags: 0
  159. -- line height: 12
  160. -- part name: 
  161. ----- HyperTalk script -----
  162. on mouseDown
  163.   put the clickloc into y
  164.   put 1+(item 2 of y-item 2 of the rect of the target) div (the textheight of target) into z
  165.   put line z of field 1 into field "Display"
  166.   put "  " & line z of field 2 after field "Display"
  167.   put "  " & line z of field 3 after field "Display"
  168. end mouseDown
  169.  
  170.  
  171.  
  172. -- part 17 (field)
  173. -- low flags: 01
  174. -- high flags: 4002
  175. -- rect: left=170 top=60 right=265 bottom=337
  176. -- title width / last selected line: 0
  177. -- icon id / first selected line: 0 / 0
  178. -- text alignment: 0
  179. -- font id: 3
  180. -- text size: 9
  181. -- style flags: 0
  182. -- line height: 12
  183. -- part name: 
  184. ----- HyperTalk script -----
  185. on mouseDown
  186.   put the clickloc into y
  187.   put 1+(item 2 of y-item 2 of the rect of the target) div (the textheight of target) into z
  188.   put line z of field 4 into field "Display"
  189.   put "  " & line z of field 5 after field "Display"
  190.   put "  " & line z of field 6 after field "Display"
  191. end mouseDown
  192.  
  193.  
  194.  
  195. -- part 18 (field)
  196. -- low flags: 01
  197. -- high flags: 4002
  198. -- rect: left=270 top=60 right=265 bottom=338
  199. -- title width / last selected line: 0
  200. -- icon id / first selected line: 0 / 0
  201. -- text alignment: 0
  202. -- font id: 3
  203. -- text size: 9
  204. -- style flags: 0
  205. -- line height: 12
  206. -- part name: 
  207. ----- HyperTalk script -----
  208. on mouseDown
  209.   put the clickloc into y
  210.   put 1+(item 2 of y-item 2 of the rect of the target) div (the textheight of target) into z
  211.   put line z of field 4 into field "Display"
  212.   put "  " & line z of field 5 after field "Display"
  213.   put "  " & line z of field 6 after field "Display"
  214. end mouseDown
  215.  
  216.  
  217.  
  218. -- part 19 (field)
  219. -- low flags: 01
  220. -- high flags: 4002
  221. -- rect: left=305 top=60 right=265 bottom=338
  222. -- title width / last selected line: 0
  223. -- icon id / first selected line: 0 / 0
  224. -- text alignment: 0
  225. -- font id: 3
  226. -- text size: 9
  227. -- style flags: 0
  228. -- line height: 12
  229. -- part name: 
  230. ----- HyperTalk script -----
  231. on mouseDown
  232.   put the clickloc into y
  233.   put 1+(item 2 of y-item 2 of the rect of the target) div (the textheight of target) into z
  234.   put line z of field 4 into field "Display"
  235.   put "  " & line z of field 5 after field "Display"
  236.   put "  " & line z of field 6 after field "Display"
  237. end mouseDown
  238.  
  239.  
  240.  
  241. -- part 20 (field)
  242. -- low flags: 01
  243. -- high flags: 4002
  244. -- rect: left=340 top=60 right=265 bottom=508
  245. -- title width / last selected line: 0
  246. -- icon id / first selected line: 0 / 0
  247. -- text alignment: 0
  248. -- font id: 3
  249. -- text size: 9
  250. -- style flags: 0
  251. -- line height: 12
  252. -- part name: 
  253. ----- HyperTalk script -----
  254. on mouseDown
  255.   put the clickloc into y
  256.   put 1+(item 2 of y-item 2 of the rect of the target) div (the textheight of target) into z
  257.   put line z of field 7 into field "Display"
  258.   put "  " & line z of field 8 after field "Display"
  259.   put "  " & line z of field 9 after field "Display"
  260. end mouseDown
  261.  
  262.  
  263.  
  264. -- part 21 (field)
  265. -- low flags: 01
  266. -- high flags: 4002
  267. -- rect: left=437 top=60 right=265 bottom=506
  268. -- title width / last selected line: 0
  269. -- icon id / first selected line: 0 / 0
  270. -- text alignment: 0
  271. -- font id: 3
  272. -- text size: 9
  273. -- style flags: 0
  274. -- line height: 12
  275. -- part name: 
  276. ----- HyperTalk script -----
  277. on mouseDown
  278.   put the clickloc into y
  279.   put 1+(item 2 of y-item 2 of the rect of the target) div (the textheight of target) into z
  280.   put line z of field 7 into field "Display"
  281.   put "  " & line z of field 8 after field "Display"
  282.   put "  " & line z of field 9 after field "Display"
  283. end mouseDown
  284.  
  285.  
  286.  
  287. -- part 22 (field)
  288. -- low flags: 01
  289. -- high flags: 4002
  290. -- rect: left=474 top=60 right=265 bottom=507
  291. -- title width / last selected line: 0
  292. -- icon id / first selected line: 0 / 0
  293. -- text alignment: 0
  294. -- font id: 3
  295. -- text size: 9
  296. -- style flags: 0
  297. -- line height: 12
  298. -- part name: 
  299. ----- HyperTalk script -----
  300. on mouseDown
  301.   put the clickloc into y
  302.   put 1+(item 2 of y-item 2 of the rect of the target) div (the textheight of target) into z
  303.   put line z of field 7 into field "Display"
  304.   put "  " & line z of field 8 after field "Display"
  305.   put "  " & line z of field 9 after field "Display"
  306. end mouseDown
  307.  
  308.  
  309.  
  310. -- part 23 (field)
  311. -- low flags: 00
  312. -- high flags: 0004
  313. -- rect: left=1 top=22 right=43 bottom=190
  314. -- title width / last selected line: 0
  315. -- icon id / first selected line: 0 / 0
  316. -- text alignment: 0
  317. -- font id: 0
  318. -- text size: 12
  319. -- style flags: 0
  320. -- line height: 16
  321. -- part name: 
  322.  
  323.  
  324. -- part 24 (field)
  325. -- low flags: 00
  326. -- high flags: 0002
  327. -- rect: left=214 top=22 right=41 bottom=433
  328. -- title width / last selected line: 0
  329. -- icon id / first selected line: 0 / 0
  330. -- text alignment: 0
  331. -- font id: 3
  332. -- text size: 12
  333. -- style flags: 0
  334. -- line height: 16
  335. -- part name: 
  336. ----- HyperTalk script -----
  337. on mouseDown
  338.   get (line 17 of field 7)
  339.   if it is empty then put "End" into it
  340.   put (line 1 of field 1) && "to" && it into field 11
  341. end mouseDown
  342.  
  343.  
  344. -- part 25 (button)
  345. -- low flags: 00
  346. -- high flags: 0000
  347. -- rect: left=60 top=327 right=340 bottom=72
  348. -- title width / last selected line: 0
  349. -- icon id / first selected line: 0 / 0
  350. -- text alignment: 1
  351. -- font id: 0
  352. -- text size: 12
  353. -- style flags: 0
  354. -- line height: 16
  355. -- part name: New Button
  356. ----- HyperTalk script -----
  357. on mouseUp
  358.   visual effect dissolve
  359.   go to card id 4597
  360. end mouseUp
  361.  
  362.  
  363.  
  364.  
  365. -- part 26 (button)
  366. -- low flags: 00
  367. -- high flags: 0000
  368. -- rect: left=8 top=266 right=321 bottom=38
  369. -- title width / last selected line: 0
  370. -- icon id / first selected line: 0 / 0
  371. -- text alignment: 1
  372. -- font id: 0
  373. -- text size: 12
  374. -- style flags: 0
  375. -- line height: 16
  376. -- part name: New Button
  377. ----- HyperTalk script -----
  378. on mouseUp
  379.   visual effect dissolve
  380.   go to card id 3522
  381. end mouseUp
  382.  
  383.  
  384.  
  385.  
  386. -- part 27 (button)
  387. -- low flags: 00
  388. -- high flags: 0000
  389. -- rect: left=39 top=266 right=322 bottom=59
  390. -- title width / last selected line: 0
  391. -- icon id / first selected line: 0 / 0
  392. -- text alignment: 1
  393. -- font id: 0
  394. -- text size: 12
  395. -- style flags: 0
  396. -- line height: 16
  397. -- part name: New Button
  398. ----- HyperTalk script -----
  399. on mouseUp
  400.   visual effect dissolve
  401.   go to card id 3976
  402. end mouseUp
  403.  
  404.  
  405.  
  406.  
  407. -- part 28 (button)
  408. -- low flags: 00
  409. -- high flags: 0000
  410. -- rect: left=57 top=270 right=306 bottom=85
  411. -- title width / last selected line: 0
  412. -- icon id / first selected line: 0 / 0
  413. -- text alignment: 1
  414. -- font id: 0
  415. -- text size: 12
  416. -- style flags: 0
  417. -- line height: 16
  418. -- part name: New Button
  419. ----- HyperTalk script -----
  420. on mouseUp
  421.   visual effect dissolve
  422.   go to card id 4234
  423. end mouseUp
  424.  
  425.  
  426.  
  427.  
  428. -- part 29 (button)
  429. -- low flags: 00
  430. -- high flags: 0000
  431. -- rect: left=61 top=316 right=328 bottom=75
  432. -- title width / last selected line: 0
  433. -- icon id / first selected line: 0 / 0
  434. -- text alignment: 1
  435. -- font id: 0
  436. -- text size: 12
  437. -- style flags: 0
  438. -- line height: 16
  439. -- part name: New Button
  440. ----- HyperTalk script -----
  441. on mouseUp
  442.   visual effect dissolve
  443.   go to card id 3686
  444. end mouseUp
  445.  
  446.  
  447.  
  448.  
  449. -- part 30 (button)
  450. -- low flags: 00
  451. -- high flags: 0000
  452. -- rect: left=62 top=306 right=319 bottom=83
  453. -- title width / last selected line: 0
  454. -- icon id / first selected line: 0 / 0
  455. -- text alignment: 1
  456. -- font id: 0
  457. -- text size: 12
  458. -- style flags: 0
  459. -- line height: 16
  460. -- part name: New Button
  461. ----- HyperTalk script -----
  462. on mouseUp
  463.   visual effect dissolve
  464.   go to card id 2839
  465. end mouseUp
  466.  
  467.  
  468.  
  469.  
  470. -- part 31 (button)
  471. -- low flags: 00
  472. -- high flags: A003
  473. -- rect: left=96 top=313 right=333 bottom=159
  474. -- title width / last selected line: 0
  475. -- icon id / first selected line: 0 / 0
  476. -- text alignment: 1
  477. -- font id: 0
  478. -- text size: 12
  479. -- style flags: 0
  480. -- line height: 16
  481. -- part name: Index
  482. ----- HyperTalk script -----
  483. on mouseUp
  484.   put "N Index" into A
  485.   get char 1 of field 10
  486.   if it is "O" then put "N" into it
  487.   put it into char 1 of A
  488.   hide message window
  489.   visual effect iris open
  490.   go to card A
  491. end mouseUp
  492.  
  493.  
  494.  
  495. -- part 43 (button)
  496. -- low flags: 00
  497. -- high flags: 2000
  498. -- rect: left=108 top=272 right=304 bottom=147
  499. -- title width / last selected line: 0
  500. -- icon id / first selected line: 0 / 0
  501. -- text alignment: 1
  502. -- font id: 0
  503. -- text size: 12
  504. -- style flags: 0
  505. -- line height: 16
  506. -- part name: New Button
  507. ----- HyperTalk script -----
  508. on mouseUp
  509.   go to card id 6750
  510. end mouseUp
  511.  
  512.  
  513.  
  514.  
  515. -- part 44 (button)
  516. -- low flags: 00
  517. -- high flags: A003
  518. -- rect: left=188 top=276 right=296 bottom=258
  519. -- title width / last selected line: 0
  520. -- icon id / first selected line: 0 / 0
  521. -- text alignment: 1
  522. -- font id: 0
  523. -- text size: 12
  524. -- style flags: 0
  525. -- line height: 16
  526. -- part name: Find
  527. ----- HyperTalk script -----
  528. on mouseUp
  529.   get field finder
  530.   if it is not empty then
  531.     push card
  532.     put "" into field finder
  533.     Find chars it
  534.     if (number of this card < number of card "N Index") then
  535.       if the result is empty then
  536.         play "Harpsichord" tempo 380 c --e g c5
  537.       else
  538.         play "boing"
  539.       end if
  540.     end if
  541.     put it into field finder
  542.   end if
  543. end mouseUp
  544.  
  545.  
  546.  
  547. -- part 45 (field)
  548. -- low flags: 00
  549. -- high flags: 0002
  550. -- rect: left=264 top=278 right=296 bottom=395
  551. -- title width / last selected line: 0
  552. -- icon id / first selected line: 0 / 0
  553. -- text alignment: 0
  554. -- font id: 3
  555. -- text size: 12
  556. -- style flags: 0
  557. -- line height: 16
  558. -- part name: finder
  559.  
  560.  
  561. -- part 49 (button)
  562. -- low flags: 00
  563. -- high flags: 0000
  564. -- rect: left=441 top=16 right=44 bottom=474
  565. -- title width / last selected line: 0
  566. -- icon id / first selected line: 0 / 0
  567. -- text alignment: 1
  568. -- font id: 0
  569. -- text size: 12
  570. -- style flags: 0
  571. -- line height: 16
  572. -- part name: 
  573. ----- HyperTalk script -----
  574. on mouseUp
  575.   push card
  576.   go to card id 7503
  577. end mouseUp
  578.  
  579.  
  580.  
  581.  
  582. -- part 50 (field)
  583. -- low flags: 00
  584. -- high flags: 0000
  585. -- rect: left=179 top=314 right=331 bottom=452
  586. -- title width / last selected line: 0
  587. -- icon id / first selected line: 0 / 0
  588. -- text alignment: 0
  589. -- font id: 3
  590. -- text size: 12
  591. -- style flags: 0
  592. -- line height: 16
  593. -- part name: Display
  594.